home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / BlindAlleys.dxr / Internal_7_tab hot.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.8 KB  |  68 lines
  1. property spriteNum, row, fp, location
  2. global tableau, equal, currentsel, getlist, godlist, basecard, foundation, extras, dimpos
  3.  
  4. on beginSprite me
  5.   row = determinerow()
  6.   candd = [#one: 12, #two: 28, #thr: 44, #fou: 60, #fiv: 76, #six: 92, #sev: 108]
  7.   fp = candd[row]
  8.   location = sprite(fp).location
  9. end
  10.  
  11. on determinerow me
  12.   if spriteNum = 26 then
  13.     return #one
  14.   else
  15.     if spriteNum = 42 then
  16.       return #two
  17.     else
  18.       if spriteNum = 58 then
  19.         return #thr
  20.       else
  21.         if spriteNum = 74 then
  22.           return #fou
  23.         else
  24.           if spriteNum = 90 then
  25.             return #fiv
  26.           else
  27.             if spriteNum = 106 then
  28.               return #six
  29.             end if
  30.           end if
  31.         end if
  32.       end if
  33.     end if
  34.   end if
  35. end
  36.  
  37. on mouseEnter me
  38.   if getlist <> VOID then
  39.     if (tableau[row].getcardcount() < 14) and ((tableau[row].getcardcount() + extras.count) <= 14) then
  40.       if tableau[row].getcardcount() > 0 then
  41.         if extras.count = 0 then
  42.           if (getlist.getlastcard().rankvalue = (tableau[row].getlastcard().rankvalue - 1)) and (getlist.getlastcard().suitcolor <> tableau[row].getlastcard().suitcolor) then
  43.             equal = 1
  44.             godlist = tableau[row]
  45.             currentsel = tableau[row].getlastcard().spnum + 1
  46.           end if
  47.         else
  48.           if (getlist.cards[dimpos].rankvalue = (tableau[row].getlastcard().rankvalue - 1)) and (getlist.cards[dimpos].suitcolor <> tableau[row].getlastcard().suitcolor) then
  49.             equal = 1
  50.             godlist = tableau[row]
  51.             currentsel = tableau[row].getlastcard().spnum + 1
  52.           end if
  53.         end if
  54.       else
  55.         equal = 1
  56.         godlist = tableau[row]
  57.         currentsel = fp
  58.       end if
  59.     end if
  60.   end if
  61. end
  62.  
  63. on mouseLeave me
  64.   equal = 0
  65.   currentsel = 0
  66.   godlist = VOID
  67. end
  68.